Improve the set-fill-column prompt

* lisp/simple.el (set-fill-column): Improve the prompt (bug#53874).

diff --git a/lisp/simple.el b/lisp/simple.el
index 3cf3024184b71d391a789d824ef35e3e2140e6c1..af51c99b285eb9230a6974b342d23e7a4a53b7ea 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -8303,7 +8303,8 @@ Just \\[universal-argument] as argument means to use the current column."
              ;; We used to use current-column silently, but C-x f is too easily
              ;; typed as a typo for C-x C-f, so we turned it into an error and
              ;; now an interactive prompt.
-             (read-number "Set fill-column to: " (current-column)))))
+             (read-number (format "Change fill-column from %s to: " fill-column)
+                          (current-column)))))
   (if (consp arg)
       (setq arg (current-column)))
   (if (not (integerp arg))